home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / pcc / v04n12 / windoc.exe / DCGLOBAL.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-11-01  |  4.4 KB  |  127 lines
  1.  
  2. '========='
  3. '         '
  4. ' General '
  5. '         '
  6. '========='
  7. DefInt A-Z
  8.  
  9. ' Booleans
  10. Global Const TRUE = -1
  11. Global Const FALSE = 0
  12.  
  13. ' Button and Shift (KeyDown, KeyUp, MouseDown, MouseMove, MouseUp)
  14. Global Const SHIFT_MASK = 1
  15. Global Const CTRL_MASK = 2
  16. Global Const ALT_MASK = 4
  17.    '=================='
  18. '                  '
  19. ' Event parameters '
  20. '                  '
  21. '=================='
  22. ' State (DragOver)
  23. Global Const ENTER = 0
  24. Global Const LEAVE = 1
  25. Global Const OVER = 2
  26. '====================='
  27. '                     '
  28. ' Function parameters '
  29. '                     '
  30. '====================='
  31. ' MsgBox parameters
  32. Global Const MB_OK = 0                 ' OK button only
  33. Global Const MB_OKCANCEL = 1           ' OK and Cancel buttons
  34. Global Const MB_ABORTRETRYIGNORE = 2   ' Abort, Retry, and Ignore buttons
  35. Global Const MB_YESNOCANCEL = 3        ' Yes, No, and Cancel buttons
  36. Global Const MB_YESNO = 4              ' Yes and No buttons
  37. Global Const MB_RETRYCANCEL = 5        ' Retry and Cancel buttons
  38. Global Const MB_ICONSTOP = 16          ' Critical message
  39. Global Const MB_ICONQUESTION = 32      ' Warning query
  40. Global Const MB_ICONEXCLAMATION = 48   ' Warning message
  41. Global Const MB_ICONINFORMATION = 64   ' Information message
  42. ' MsgBox return values
  43. Global Const IDOK = 1                  ' OK button pressed
  44. Global Const IDCANCEL = 2              ' Cancel button pressed
  45. Global Const IDABORT = 3               ' Abort button pressed
  46. Global Const IDRETRY = 4               ' Retry button pressed
  47. Global Const IDIGNORE = 5              ' Ignore button pressed
  48. Global Const IDYES = 6                 ' Yes button pressed
  49. Global Const IDNO = 7                  ' No button pressed
  50. '==================='
  51. '                   '
  52. ' Method parameters '
  53. '                   '
  54. '==================='
  55. ' Drag (controls)
  56. Global Const CANCEL = 0
  57. Global Const BEGIN_DRAG = 1
  58. Global Const END_DRAG = 2
  59. '================='
  60. '                 '
  61. ' Property values '
  62. '                 '
  63. '================='
  64. ' LinkMode (controls)
  65. Global Const NONE = 0
  66. Global Const HOT = 1
  67. Global Const COLD = 2
  68. Global Const SERVER = 1
  69. '----------------------------------------
  70. 'API DECLARATIONS
  71. Declare Function FindWindow Lib "user" (ByVal CName As Any, ByVal Caption As Any)
  72. Declare Function IsIconic Lib "user" (ByVal hWnd As Any)
  73. Declare Function PostMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Integer
  74. Declare Function GetClassWord Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer) As Integer
  75. Declare Function GetModuleFilename Lib "Kernel" (ByVal hModule As Integer, ByVal lpFilename As String, ByVal nSize As Integer) As Integer
  76. Global Const WM_GETTEXT = &HD
  77. Global Const WM_SYSCOMMAND = &H112
  78. Global Const SC_RESTORE = &HF120
  79. Global Const SC_CLOSE = &HF060
  80. '----------------------------------------
  81. 'File System Declarations
  82. Global Const SAVEFILE = 1, LOADFILE = 2
  83. Global Const REPLACEFILE = 1, READFILE = 2, ADDFILE = 3
  84. Global Const RANDOMFILE = 4, BINARYFILE = 5
  85. Global Const ERR_DEVICEUNAVAILABLE = 68
  86. Global Const ERR_DISKNOTREADY = 71, ERR_FILEALREADYEXISTS = 58
  87. Global Const ERR_TOOMANYfILES = 67, ERR_RENAMEACROSSDISKS = 74
  88. Global Const ERR_PATH_FILEACCESSERROR = 75, ERR_DEVICEIO = 57
  89. Global Const ERR_DISKFULL = 61, ERR_BADFILENAME = 64
  90. Global Const ERR_BADFILENAMEORNUMBER = 52, ERR_BADFILEMODE = 54
  91. Global Const ERR_FILEALREADYOPEN = 55, ERR_INPUTPASTENDOFFILE = 62
  92. Global Const ERR_FILENOTFOUND = 53
  93. Global Const ERR_PATHNOTFOUND = 76
  94. '----------------------------------------
  95. 'Definition for DOCMAN.DAT record type
  96. Type RecordType
  97.     recordnum As Long
  98.     title As String * 120
  99.     Description As String * 300
  100.     file As String * 60
  101.     owner As String * 8
  102.     date As String * 10
  103.     key1 As String * 31
  104.     key2 As String * 31
  105.     key3 As String * 31
  106.     key4 As String * 31
  107. End Type
  108. 'GLOBAL VARIABLES
  109. Global EditFile As String
  110. Global EditPath As String
  111. Global IsActionsHidden As Integer
  112. Global OpenFileNum As Integer
  113. Global CleanUpFileNum As Integer
  114. Global FileNum As Integer
  115. Global RecordVar As RecordType
  116. Global RecordNumber As Long
  117. Global Position As Long
  118. Global LastRecord As Long
  119. Global NewRecordFlag As Integer
  120. Global WasRecordChanged As Integer
  121. Global Keyword As String
  122. Global NewActions As Integer
  123. Global FindNext As Integer
  124. Global LastWindowHandle As Integer
  125. Global ExePath As String
  126.  
  127.